home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 096 / arcvmod.arc / RBBSARCV.PAT < prev   
Encoding:
Text File  |  1987-01-04  |  5.6 KB  |  98 lines
  1. '
  2. ' *****************************************************************************
  3. ' *                                                                           *
  4. ' *                          FILES MENU PROCESSING                            *
  5. ' *                                                                           *
  6. ' *****************************************************************************
  7. '
  8. 20015 AUTODOWNLOAD.IN.PROGRESS = FALSE  ' RESET AUTO-DOWNLOAD FLAG OFF
  9.       SUBROUTINE.PARAMETER = 1
  10.       CALL LINE25
  11.       ACTIVE.MENU$ = "F"
  12.       GOSUB 41050
  13.       NON.STOP = FALSE
  14.       IF NOT EXPERT.USER THEN _
  15.          FILE.NAME$ = MENU$(3) : _
  16.          GOSUB 43025
  17. 20030 A$ = GRN$ + " Files Function <A,D,G,H,L,N,Q,S,U,X,?>"          ' NEW
  18.       CALL SKIPLINE
  19.       GOSUB 12995
  20.       IF Q = 0 THEN _
  21.          GOTO 20015
  22. 20050 LIST.NEW = FALSE
  23.       CALL ALLCAPS (B$(1))
  24.       Z$ = B$(1)
  25.       FF = INSTR("ADGHLNQSUX?",Z$)                                   ' NEW
  26.       IF FF = 0 THEN _
  27.          J = 1 : _
  28.          GOSUB 1360 : _
  29.          GOTO 20015
  30.       IF FF = 11 AND USER.SECURITY.LEVEL => FILES.FUNCTION(10) THEN_ ' NEW
  31.          GOTO 20070                                                  ' NEW
  32.       IF USER.SECURITY.LEVEL < FILES.FUNCTION(FF) THEN _
  33.          VIOLATION$ = "File " + Z$ : _
  34.          GOSUB 1380 : _
  35.          GOTO 20015
  36. 20070 ON FF GOSUB 20071, _               ' A)rchive Verbose Listing    NEW
  37.                   20180, _               ' D)ownload a file
  38.                   20100, _               ' G)oodbye (log off)
  39.                   20110, _               ' H)elp (on line)
  40.                   20150, _               ' L)ist file directories
  41.                   53000, _               ' N)ew file search since given date
  42.                   20090, _               ' Q)uit and exit to message subsystem
  43.                   52900, _               ' S)earch directories for a string
  44.                   20400, _               ' U)pload a file
  45.                   4240, _                ' X)Expert mode toggle on/off
  46.                   20130                  ' ?)File transfer information
  47.       GOTO 20015
  48. '
  49. ' * --> The A)rchive Verbose Listing (on-line) routine is as follows :
  50. '
  51. ' *******************************************************************  NEW
  52. ' *  A - COMMAND FROM FILES MENU (ARCHIVE VERBOSE LISTING)          *  NEW
  53. ' *******************************************************************  NEW
  54. '
  55. 20071 IF Q > 1 THEN _                                                ' NEW
  56.          B = 2 : _                                                   ' NEW
  57.          GOTO 20073                                                  ' NEW
  58. 20072 A$ = "List which ARC'ed file (eg. RBBS-PC) "                   ' NEW
  59.       GOSUB 12995                                                    ' NEW
  60.       B = 1                                                          ' NEW
  61.       IF Q = 0 THEN _                                                ' NEW
  62.          RETURN                                                      ' NEW
  63. 20073 Z$ = B$(B)                                                     ' NEW
  64.       VIOLATION$ = "ARC-List "                                       ' NEW
  65. 20074 FOR SUBDIR.INDEX = START.DRIVE TO SUBDIR.COUNT                 ' NEW
  66.          CALL BADFILE                                                ' NEW
  67.          ON BAD.FILE.NAME.INDEX GOTO 20075,20080,20086               ' NEW
  68. 20075    OK = FALSE : _                                              ' NEW
  69.          FILE.NAME$ = FILE.NAME$ + ".ARC"                            ' NEW
  70. 20076    CALL FINDIT                                                 ' NEW
  71. 20077    IF OK THEN _                                                ' NEW
  72.             GOTO 20082                                               ' NEW
  73. 20078 NEXT                                                           ' NEW
  74. 20080 Z$ = B$(B) + ".ARC not found!"                                 ' NEW
  75.       SUBROUTINE.PARAMETER = 2                                       ' NEW
  76.       CALL UPDTCALR                                                  ' NEW
  77.       A$ = Z$ + " Type correct filename ([ENTER] quits)"             ' NEW
  78.       GOSUB 12995                                                    ' NEW
  79.       IF Q = 0 THEN _                                                ' NEW
  80.          RETURN                                                      ' NEW
  81.       B = 1                                                          ' NEW
  82.       GOTO 20073                                                     ' NEW
  83. 20082 Z$ = "ARC-Listed " + B$(B) + ".ARC"                            ' NEW
  84.       SUBROUTINE.PARAMETER = 1                                       ' NEW
  85.       CALL UPDTCALR                                                  ' NEW
  86.       RETCODE% = 0                                                   ' NEW
  87.       CALL ARCV (FILE.NAME$,RETCODE%)                                ' NEW
  88.       IF RETCODE%  = 1 THEN GOTO 20085                               ' NEW
  89.       FILE.NAME$ = "TEMPARC.DIR"                                     ' NEW
  90.       GOSUB 6000                                                     ' NEW
  91. 20084 RETURN                                                         ' NEW
  92. 20085 A$ = "Sorry, the .ARC file was either corrupted or incompatible.  Notify Sysop." ' NEW
  93.       PRINT A$                                                       ' NEW
  94.       GOTO 20084                                                     ' NEW
  95. 20086 GOSUB 1380                                                     ' NEW
  96.       GOTO 20084                                                     ' NEW
  97. '
  98.